home *** CD-ROM | disk | FTP | other *** search
/ Game On 1990 July / Game_On_90-07_1990_-_de_Side_B.d64 / orbit levelmaker / orbit levelmaker.a7ae (.txt)
Encoding:
Commodore BASIC  |  1990-01-01  |  48.3 KB  |  52 lines
  1. 10 poke53281,0:poke53280,0
  2. 20 print"[147]  the automatic levelcreator for orbit"
  3. 25 print"  [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  4. 30 print"this program calculates up to 50 extra"
  5. 35 print"levels for the game orbit in max. 50"
  6. 40 print"minutes (depending on the levels shape).";
  7. 45 print"before calculation starts you have to"
  8. 50 print"select one of 12 possible basic-shapes"
  9. 55 print"and the available time for each level."
  10. 60 print"make sure to have one free block on your";
  11. 65 print"leveldisk for each level to generate."
  12. 66 print"old levels on your disk will be replaced";
  13. 67 print"by the new ones automatically."
  14. 70 print"special thanks to ingo wolf for the"
  15. 75 print"orbit preview and greetings to all the"
  16. 80 print"guys of cyberstyle."
  17. 83 print"               press space"
  18. 85 get a$:if a$<>" " then 85
  19. 100 print"[147]auto-levelcreator by mdg for orbit by cs"
  20. 110 print"number of levels to create ";
  21. 120 input a
  22. 125 if a>50 or a<1 then 110
  23. 130 :
  24. 131 dim s,t(a):sl=1:tl=2000
  25. 132 for t=0 to a-1
  26. 133 print "level:"t+1
  27. 134 print "shape no. (1-12 1=easy 12=hard)  ";sl;chr$(13)"[145]"tab(32);
  28. 135 input s(t)
  29. 136 if s(t)<1 or s(t)>12 then 134
  30. 137 print "time (1000-9000)  ";tl;chr$(13)"[145]"tab(17);
  31. 138 input t(t)
  32. 139 if t(t)<1000 or t(t)>9000 then 136
  33. 140 sl=s(t):tl=t(t):next t
  34. 141 :
  35. 148 for t=0 to a-1
  36. 149 print"scratching old level";t+1
  37. 150 aa$=mid$(str$(t),2,2)
  38. 160 if len(aa$)=1 then aa$="0"+aa$
  39. 170 close1:open 1,8,15,"s:he"+aa$:close 1
  40. 180 print"generating new level..."
  41. 185 poke 55296+38,1:poke 55296+39,1
  42. 190 poke780,s(t)-1:sys 49152
  43. 195 print"saving new level..."
  44. 200 open1,8,1,"he"+aa$
  45. 210 print#1,chr$(220)chr$(190);
  46. 220 sys 49152+3
  47. 225 for g=0 to 3
  48. 230 print#1,chr$(val(mid$(str$(t(t)),g+2,1)));
  49. 235 next g
  50. 240 close 1
  51. 250 next t
  52.